home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 June / PCWorld_2004-06_cd.bin / software / vyzkuste / koolmoves / kmsetup.exe / {app} / Motion Scripts / Ticker Tape / effect2.txt
Text File  |  2004-03-19  |  1KB  |  54 lines
  1.  
  2. // main_init function
  3.  
  4. main_init = function(mc){
  5.  box = function(mc,tl_x, tl_y, br_x, br_y, cf, ca ){
  6.   mc.lineStyle();
  7.   mc.beginFill(cf,ca);
  8.   mc.moveTo (tl_x,tl_y);
  9.   mc.lineTo (br_x,tl_y);
  10.   mc.lineTo (br_x,br_y);
  11.   mc.lineTo (tl_x,br_y);
  12.   mc.endFill();
  13.  }
  14.  subs_done = true;
  15.  createEmptyMovieClip("msk",6);
  16.  createEmptyMovieClip("tb",4);
  17.  if (tickerbox_alpha<2) tb._visible = false;
  18.  mc.setmask(msk);
  19.  b = mc.getBounds(mc);
  20.  p = $padding / 2;
  21.  if (ltorlang){
  22.   box(msk,b.xMin+p,b.yMin,b.xMin+p+tickerbox_width,b.yMax,0,0);
  23.   box(tb, b.xMin+p-tickerbox_padding,b.yMin+p-tickerbox_padding,b.xMin+p+tickerbox_width+tickerbox_padding,b.yMax-p+tickerbox_padding,tickerbox_color,tickerbox_alpha);
  24.   mc._x = tickerbox_width;
  25.  } else {
  26.   box(msk,b.xMax-p-tickerbox_width,b.yMin,b.xMax-p,b.yMax,0,0);
  27.   box(tb, b.xMax-p-tickerbox_width-tickerbox_padding,b.yMin+p-tickerbox_padding,b.xMax-p+tickerbox_padding,b.yMax-p+tickerbox_padding,tickerbox_color,tickerbox_alpha);
  28.   mc._x = -tickerbox_width;
  29.  }
  30. }
  31.  
  32. // main_effect function
  33.  
  34. main_effect = function(mc,frame){
  35.  if (ltorlang){
  36.   mc._x-=cycle_speed;
  37.   if (mc._x < -(mc._width-$padding)) end_effect = true;
  38.  } else {
  39.   mc._x+=cycle_speed;
  40.   if (mc._x > (mc._width-$padding)) end_effect = true;
  41.  }
  42. }
  43.  
  44. // sub_init function
  45.  
  46. sub_init = function(mc){
  47. }
  48.  
  49. // sub_effect function
  50.  
  51. sub_effect = function(mc,frame){
  52. }
  53.  
  54.